Dim DateVar
Dim DateVar2

DateVar = #December, 24, 2000#
DateVar2 = DateVar
Date = DateVar2 ' Set system date

Dim DateVar3 As Variant, DateVar4 As String

DateVar3 = Date
DateVar4 = Date$
